﻿Imports System.Data.SqlClient
Public Class frmShowAufgaben
    Public Rowid As Integer

    Dim connectionString As String
    Dim connection As SqlConnection
    Dim adapter As SqlDataAdapter
    Dim cmdBuilder As SqlCommandBuilder

    Private Sub frmShowAufgaben_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        frmShowProjekte.Show()
    End Sub

    Private Sub frmShowAufgaben_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DbAufgaben.Aufgaben". Sie können sie bei Bedarf verschieben oder entfernen.
        Me.AufgabenTableAdapter.Fill(Me.DbAufgaben.Aufgaben)


        Dim project As Projekt = Projekt.GetObject()


        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=|DataDirectory|\db.accdb")

        Dim cmd As New OleDb.OleDbCommand("Select * From Aufgaben Where FK_Projekte = " + project.projectrowId + ";", conn)

        Dim da As New OleDb.OleDbDataAdapter(cmd)

        Dim ds As New DataSet

        conn.Open()

        da.Fill(ds)

        conn.Close()

        gvAufgaben.DataSource = ds.Tables(0).DefaultView

    End Sub

    Private Sub gvProjekte_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles gvAufgaben.CellClick
        ' Ignore clicks that are not on button cells. 
        If e.RowIndex >= 0 OrElse Not e.ColumnIndex = gvAufgaben.Columns("dgvAuswaehlen").Index Then
            Dim taskID As Int32 = CInt(gvAufgaben(0, e.RowIndex).Value)
            ' Dim idRow As String = gvAufgaben.Rows(taskID - 1).Cells(0).Value
            Rowid = taskID
            Dim aufgabenobject As Projekt = Projekt.GetObject()
            aufgabenobject.aufgabenrowId = taskID
            Me.Hide()
            frmShowRapporte.Show()

        End If
    End Sub

End Class